home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00225.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  880 b   |  32 lines
  1. on mouseDown me
  2.   repeat while the mouseDown
  3.     if the locV of sprite 43 = 100 then
  4.       sprite(43).color = rgb(0, 255, 0)
  5.       set the blend of sprite 43 to 100
  6.     else
  7.       if the locV of sprite 43 < 100 then
  8.         set the blend of sprite 43 to 100
  9.         redr = (55 + (45 - the locV of sprite 43)) * 5.66699999999999982
  10.         redg = 255
  11.         redb = redr
  12.         sprite(43).color = rgb(redr, redg, redb)
  13.       else
  14.         set the blend of sprite 43 to (101 + (225 - the locV of sprite 43)) * 0.44400000000000001
  15.       end if
  16.     end if
  17.     set the locV of sprite 43 to the mouseV
  18.     set the locV of sprite 62 to the mouseV
  19.     if the blend of sprite 43 < 10 then
  20.       showit(62, 62)
  21.     else
  22.       hideit(62, 62)
  23.     end if
  24.     updateStage()
  25.   end repeat
  26. end
  27.  
  28. on mouseUp me
  29.   set the locV of sprite 43 to the mouseV
  30.   set the locV of sprite 62 to the mouseV
  31. end
  32.